LASER (1982, ZX-81)

   5 REM "LASER"
   7 LET P=0
  10 LET G=RND*35+10
  11 LET H=RND*36+2
  12 PLOT G,H
  15 GOSUB 100
  16 PLOT G,H
  20 FOR X=1 TO 46 STEP (1/(ABS Y+(Y=0)))*(ABS Y>1)+(ABS Y<=1)
  25 IF ABS (X*Y+20)>41 THEN GOTO 45
  30 PLOT X,Y*X+20
  35 IF ABS (H-X*Y-20)<2 THEN GOTO 150
  40 NEXT X
  50 GOTO 10
 100 PRINT AT 0,0;"QUAL O ANGULO ?"
 110 INPUT Y
 115 LET Y=TAN (Y*PI/180)
 116 CLS
 120 PRINT AT 20,15;P
 130 RETURN
 150 IF X<>(INT G) THEN GOTO 36
 151 PRINT "BUM"
 155 LET P=P+1
 160 GOSUB 120
 170 GOTO 10